home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_B.d64 / load sprite.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  108 lines
  1. 100 point    = $00fa
  2. 110 seqpoint = $00fc
  3. 120 loadflag = $000a
  4. 130 block    = $0002
  5. 140 errorout = $a437
  6. 150 loadfile = $ffd5
  7. 160 error    = $e1d1
  8. 170 status   = $ffb7
  9. 180 morechar = $e206
  10. 190 setname  = $ffbd
  11. 200 setparam = $ffba
  12. 210 getbyte  = $e200
  13. 220 chkcom   = $aefd
  14. 230 getstrng = $e257
  15. 240 *=$c350
  16. 250 lda #$a0
  17. 260 sta point+1
  18. 270 lda #$90
  19. 280 sta seqpoint+1
  20. 290 lda #0
  21. 300 sta point
  22. 310 sta seqpoint
  23. 320 sta loadflag
  24. 330 sta block
  25. 340 jsr getparam
  26. 350 loadloop *=*
  27. 360 lda loadflag
  28. 370 ldx point
  29. 380 ldy point+1
  30. 390 cpy #$c0
  31. 400 bcc notoomem
  32. 410 outofmem *=*
  33. 420 ldx #$10
  34. 430 jmp errorout
  35. 440 notoomem *=*
  36. 450 jsr loadfile
  37. 460 bcc noerr
  38. 470 jmp error
  39. 480 noerr *=*
  40. 490 jsr status
  41. 500 and #$bf
  42. 510 beq notlderr
  43. 520 ldx #$1d
  44. 530 jmp errorout
  45. 540 notlderr *=*
  46. 550 lda point+1
  47. 560 clc
  48. 570 adc #4
  49. 580 sta point+1
  50. 590 sei
  51. 600 lda #$36
  52. 610 sta 1
  53. 620 ldy #$4f
  54. 630 lda (point),y
  55. 640 pha
  56. 650 tay
  57. 660 clc
  58. 670 adc seqpoint
  59. 680 lda seqpoint+1
  60. 690 adc #0
  61. 700 cmp #$a0
  62. 710 bcs outofmem
  63. 720 lda #$ff
  64. 730 sta (seqpoint),y
  65. 740 dey
  66. 750 bmi endcopy
  67. 760 seqcopy *=*
  68. 770 lda (point),y
  69. 780 and #$f
  70. 790 ora block
  71. 800 sta (seqpoint),y
  72. 810 dey
  73. 820 bpl seqcopy
  74. 830 endcopy *=*
  75. 840 lda #$37
  76. 850 sta 1
  77. 860 cli
  78. 870 lda block
  79. 880 clc
  80. 890 adc #$10
  81. 900 sta block
  82. 910 pla
  83. 920 clc
  84. 930 adc seqpoint
  85. 940 sta seqpoint
  86. 950 bcc ninseqp
  87. 960 inc seqpoint+1
  88. 970 ninseqp *=*
  89. 980 jsr morechar
  90. 990 jsr getname
  91. 1000 ldy #0
  92. 1010 sty $b9
  93. 1020 beq loadloop
  94. 1030 getparam *=*
  95. 1040 lda #0
  96. 1050 jsr setname
  97. 1060 ldx #1
  98. 1070 tay
  99. 1080 jsr setparam
  100. 1090 jsr morechar
  101. 1100 jsr getbyte
  102. 1110 ldy #0
  103. 1120 jsr setparam
  104. 1130 jsr morechar
  105. 1140 getname *=*
  106. 1150 jsr chkcom
  107. 1160 jmp getstrng
  108.